home *** CD-ROM | disk | FTP | other *** search
/ Aminet 8 / Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso / Aminet / docs / hyper / france12.lha / France_Guide_v1_2a / Install.script < prev    next >
Encoding:
Text File  |  1994-12-03  |  6.4 KB  |  172 lines
  1. ; $VER: Install_France.guide 1.0 (29.11.94) écrit par Gérard Cornu ;-) pour Saint Jérôme le Gueux.
  2. ;  
  3.  
  4. (set MSG_README "Lise_&_Moi")
  5.  
  6. (set MSG_BAD_KICK "%s nécessite au minimum le système 2.0\n(3.x de préférence !)") 
  7.  
  8. (set MSG_NOT_3.0        (cat  "Il semblerait que votre machine n'utilise pas le"
  9.                               " système 3.x. %s peut fonctionner sur"
  10.                               " votre système, mais vous ne pourrez pas afficher les"
  11.                               " cartes directement depuis %s.\n\n"
  12.                               " Cliquez sur \"Aide...\" pour les modifications"
  13.                               " à apporter de façon à voir les cartes comme sous"
  14.                               " le système 3.x, (ou presque ;-)")) 
  15.  
  16. (set MSG_HELP_NOT_3.0   (cat  "Il suffit simplement de remplacer, dans le fichier"
  17.                               " France.guide, les\n\n"
  18.                               "    LINK Cartes/....iff/MAIN}\n\n"
  19.                               "par des\n\n"
  20.                               "    SYSTEM \"PPShow Cartes/....iff\"}\n\n"
  21.                               "Vous pouvez évidemment remplacer PPShow par votre"
  22.                               " Viewer d'images préféré. Notez que les guillemets ont leur importance.\n\n"
  23.                               "Deux chercher/remplacer"
  24.                               " dans votre éditeur de texte y parviendront:\n\n"
  25.                               "Chercher:\n\n"
  26.                               "LINK Cartes/\n\n"
  27.                               "Remplacer par:\n\n"
  28.                               "SYSTEM \"PPShow Cartes/\n\n"
  29.                               "Puis, chercher:\n\n"
  30.                               ".iff/MAIN}\n\n"
  31.                               "et remplacer par:\n\n"
  32.                               ".iff\"}\n\n"
  33.                               "Encore une fois les \" ne sont pas là uniquement pour décorer ;-).\n\n"
  34.                               "Le répertoire qui contient l'afficheur d'images,\n"
  35.                               "PPShow dans notre exemple, doit bien sûr être\n"
  36.                               "dans votre chemin de commandes (\"Path\")."))
  37.  
  38. (set MSG_DESTINATION    (cat  "Où désirez-vous installer l'ensemble %s ?\n"
  39.                               "Un répertoire \"France\" y sera créé, et l'ensemble"
  40.                               " des fichiers de %s sera copié dans ce répertoire \"France\".")) 
  41.  
  42. (set MSG_FONT           (cat  "\n\n\n%s est fournie avec une font, Helvetica en 9 points,"
  43.                               " optimisée par mes soins. Voulez-vous la copier dans"
  44.                               " votre répertoire \"Fonts:\"?"))
  45.  
  46. (set MSG_HELP_FONT      (cat  "Pour un confort optimal, votre écran doit être au"
  47.                               " minimum en 640x512 4 Couleurs.\n\n"
  48.                               "La police de caractère fournie (Helvetica 9) est parfaite"
  49.                               " pour un écran 17 pouces ou supérieur."))
  50.  
  51. (set MSG_FIXFONTS "\"Sys:System/FixFonts\" est en train de mettre à jour votre répertoire \"Fonts:\"")
  52.  
  53. (set MSG_PATH           (cat  "Afin que %s fonctionne correctement (par exemple depuis ToolManager),"
  54.                               " il est nécessaire que le chemin où vous venez d'installer %s soit"
  55.                               " inclus dans la variable d'environnement système \"AmigaGuide/path\".\n\n"
  56.                               "Voulez-vous que je modifie (ou crée, si nécessaire)"
  57.                               " cette variable d'environnement ?"))
  58.  
  59. (set MSG_HELP_PATH      (cat  "Si vous choisissez de \"Passer cette partie\", il vous faudra le"
  60.                               " faire manuellement. Pour plus d'infos sur cette variable"
  61.                               " d'environnement, cliquez sur le bouton \"Aide\""
  62.                               " lorsque vous êtes dans AmigaGuide (ou Multiview)."))
  63.  
  64. (set MSG_APPENDING_PATH (cat  "Mise à jour de votre variable d'environnement"
  65.                               " \"ENV:AmigaGuide/Path\" et copie dans \"ENVARC:AmigaGuide/Path\"."))
  66.  
  67. (set MSG_THANKS "\n\n\nMerci d'avoir installé %s!")
  68.  
  69. ;------------------------------------------------------------------------------
  70.  
  71. ; Choose default tool for guide, depending on user's OS version
  72. (set osversion  (/ (getversion) 65536))
  73. (if (>= osversion 39)
  74.    (set guide_reader "MultiView") 
  75.    (set guide_reader "AmigaGuide")
  76. )
  77. (set installed "")
  78.  
  79. (if (< osversion 37)
  80.    (abort (MSG_BAD_KICK @app-name))
  81. )
  82.  
  83. (if (< osversion 39)
  84.    (message (MSG_NOT_3.0 @app-name @app-name) (help MSG_HELP_NOT_3.0))
  85. )   
  86.  
  87. (set dest_dir
  88.    (askdir (prompt (MSG_DESTINATION @app-name @app-name))
  89.            (help @askdir-help)
  90.            (default "Help:")
  91.            (newpath)
  92.    )
  93. )
  94.  
  95. (set @default-dest (tackon dest_dir "France"))
  96.  
  97. (copyfiles  (source "France")
  98.             (dest @default-dest)
  99.             (infos)
  100.             (all)
  101. )
  102. (copyfiles (source MSG_README)
  103.            (dest @default-dest)
  104.            (infos)
  105.            (files)
  106. )           
  107.  
  108. (set installed "YES")
  109.  
  110. (set font
  111.    (askbool (prompt (MSG_FONT @app-name))
  112.             (help MSG_HELP_FONT)
  113.             (choices "Copier la font" "Passer cette partie")
  114.    )
  115. )   
  116.  
  117. (if (= font 1)
  118.    (
  119.       (copyfiles (source "fonts")
  120.                  (dest "Fonts:")
  121.                  (all)
  122.       )
  123.       (if (exists "Sys:System/FixFonts" (noreq))
  124.          (  
  125.             (working MSG_FIXFONTS)
  126.             (run "Sys:System/FixFonts")
  127.          )
  128.       )            
  129.    )
  130. )                 
  131.  
  132. (set dopath
  133.    (askbool (prompt (MSG_PATH @app-name @app-name))
  134.             (help MSG_HELP_PATH)
  135.             (choices "Oui" "Passer cette partie")
  136.    )
  137. )               
  138.  
  139. (if (= 1 dopath)
  140.    (
  141.       (working MSG_APPENDING_PATH)
  142.  
  143.       (if (exists "ENV:AmigaGuide/Path" (noreq)) 
  144.          (textfile (dest "ENV:AmigaGuide/Path")
  145.                    (append (getenv "AmigaGuide/Path"))
  146.                    (append (cat "\n" @default-dest))
  147.          )
  148.          (textfile (dest "ENV:AmigaGuide/Path")
  149.                    (append @default-dest)
  150.          )
  151.       )
  152.       (copyfiles (source "ENV:AmigaGuide/Path")
  153.                  (dest "ENVARC:AmigaGuide")
  154.                  (files)
  155.                  (nogauge)
  156.       )
  157.    )
  158. )         
  159.  
  160. (if (exists (tackon @default-dest "France.guide.info") (noreq))
  161.    (
  162.       (tooltype   (dest (tackon @default-dest "France.guide"))
  163.                   (noposition) (setdefaulttool guide_reader))
  164.       (set installed "YES")         
  165.    )
  166. )
  167.  
  168. (if (= installed "YES") 
  169.    (exit (MSG_THANKS @app-name))
  170.    (exit)
  171. )   
  172.